home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / flow / cmsflow.for < prev    next >
Text File  |  1992-07-31  |  946b  |  32 lines
  1.       PROGRAM FLOW
  2.       INCLUDE 'params.h'
  3.       INCLUDE 'lunits.h'               
  4.       INCLUDE 'jobcom.h'
  5.       INCLUDE 'trecom.h'
  6.       CHARACTER*80 CLINE
  7.       LOUT = 6
  8.       LINTRE = 50
  9.       LOUTCO = 60
  10.       LOUTRE = 61
  11.       LOUTCH = 96
  12.       LQERY = .FALSE.
  13.       LEXT = .FALSE.                               
  14.       LCHRT = .FALSE.
  15.       LTREE = .FALSE.
  16.       LCOMM = .FALSE.
  17.       READ(1,'(A)',END=999,ERR=999) CLINE
  18.       IF(INDEX(CLINE,'query').NE.0) LQERY = .TRUE.
  19.       IF(INDEX(CLINE,'externals').NE.0) LEXT = .TRUE.
  20.       IF(INDEX(CLINE,'graphics').NE.0) LCHRT = .TRUE.
  21.       IF(INDEX(CLINE,'chart').NE.0) LTREE = .TRUE.
  22.       IF(INDEX(CLINE,'common').NE.0) LCOMM = .TRUE.
  23.       IF(INDEX(CLINE,'node').NE.0) THEN
  24.          CLINE = CLINE(INDEX(CLINE,'node')+5:)
  25.          CTREE = CLINE(:INDEX(CLINE,' ')-1)
  26.       ENDIF
  27.       CALL PRODES
  28.       STOP
  29.   999 WRITE(LOUT,'(A)') ' FLOW: Error reading control file.'
  30.       STOP 1
  31.       END
  32.